<html>
<head>
<title>Using the Word Macro</title>
</head>
<body>

<p>
Check for poetry or other indented material.
Mark the end of each line with @.

<p>
Save the file.

<p>
Install the macro.
Go Tools/Macro/VB editor,
cut and paste the macro below into the editor window,
and close.

<p>
Run the macro.
Select Tools/Macro/Macros,
select the Gutenberg macro,
and click Run.
It takes a while to run so be patient. 
(The macro below works in Word 2000; your mileage may vary.)

<pre>
Sub Gutenberg()
 '
 ' Gutenberg Macro
 ' Line re-formatting for Gutenberg Etext.
 '
     Selection.Find.ClearFormatting
     Selection.Find.Replacement.ClearFormatting
     With Selection.Find
         .Text = "^p^p"
         .Replacement.Text = "@@"
         .Forward = True
         .Wrap = wdFindContinue
         .Format = False
         .MatchCase = False
         .MatchWholeWord = False
         .MatchWildcards = False
         .MatchSoundsLike = False
         .MatchAllWordForms = False
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     With Selection.Find
         .Text = "^p"
         .Replacement.Text = " "
         .Forward = True
         .Wrap = wdFindContinue
         .Format = False
         .MatchCase = False
         .MatchWholeWord = False
         .MatchWildcards = False
         .MatchSoundsLike = False
         .MatchAllWordForms = False
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     With Selection.Find
         .Text = "@"
         .Replacement.Text = "^p"
         .Forward = True
         .Wrap = wdFindContinue
         .Format = False
         .MatchCase = False
         .MatchWholeWord = False
         .MatchWildcards = False
         .MatchSoundsLike = False
         .MatchAllWordForms = False
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     With Selection.Find
         .Text = "  "
         .Replacement.Text = " "
         .Forward = True
         .Wrap = wdFindContinue
         .Format = False
         .MatchCase = False
         .MatchWholeWord = False
         .MatchWildcards = False
         .MatchSoundsLike = False
         .MatchAllWordForms = False
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     With ActiveDocument.PageSetup
         .LineNumbering.Active = False
         .Orientation = wdOrientPortrait
         .TopMargin = InchesToPoints(1)
         .BottomMargin = InchesToPoints(1)
         .LeftMargin = InchesToPoints(0.92)
         .RightMargin = InchesToPoints(2)
         .Gutter = InchesToPoints(0)
         .HeaderDistance = InchesToPoints(0.5)
         .FooterDistance = InchesToPoints(0.5)
         .PageWidth = InchesToPoints(8.5)
         .PageHeight = InchesToPoints(11)
         .FirstPageTray = wdPrinterDefaultBin
         .OtherPagesTray = wdPrinterDefaultBin
         .SectionStart = wdSectionNewPage
         .OddAndEvenPagesHeaderFooter = False
         .DifferentFirstPageHeaderFooter = False
         .VerticalAlignment = wdAlignVerticalTop
         .SuppressEndnotes = False
         .MirrorMargins = False
         .TwoPagesOnOne = False
         .GutterPos = wdGutterPosLeft
     End With
 End Sub
 </pre>


</body>
</html>
